﻿Imports Clases
Public Class frmAñadirProductos
    Private Sub btnAceptar_Click(sender As System.Object, e As System.EventArgs) Handles btnAceptar.Click
        If txtNombre.Text = "" Then
            Me.ErrorProvider1.SetError(txtNombre, "Debes introducir un nombre")
        Else
            Me.ErrorProvider1.SetError(txtNombre, "")
        End If
        If txtPrecio.Text = "" Then
            Me.ErrorProvider1.SetError(txtPrecio, "Debes introducir un precio")
        Else
            Me.ErrorProvider1.SetError(txtPrecio, "")
        End If
        If Not IsNumeric(txtPrecio.Text) Then
            Me.ErrorProvider1.SetError(txtPrecio, "Debes introducir un precio")
        Else
            Me.ErrorProvider1.SetError(txtPrecio, "")
        End If
        Dim msg As String = miGestion.Añadir(txtNombre.Text, txtPrecio.Text)
        If msg <> "" Then
            MessageBox.Show(msg, "Atención")
        Else
            frmCajaRegistradora.cargarBotones()
            'frmCajaRegistradora.frmCajaRegistradora_Load(New Object, New EventArgs) -> Recarga
        End If

        txtNombre.Text = ""
        txtPrecio.Text = ""
        txtNombre.Focus()
    End Sub

    Private Sub btnVolver_Click(sender As System.Object, e As System.EventArgs) Handles btnVolver.Click
        Me.Close()
    End Sub

    
    Private Sub txtPrecio_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPrecio.KeyPress
        Const NUM = "0123456789." & ControlChars.Back
        If Not NUM.Contains(e.KeyChar.ToString) Then
            e.KeyChar = ""
        End If
    End Sub

End Class